home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 2 / Gekikoh Dennoh Club Vol. 2 (Japan).7z / Gekikoh Dennoh Club Vol. 2 (Japan) (Track 01).bin / fsw / zm302 / zm302_l.lzh / ZMCHECKZMSC.HAS < prev    next >
Text File  |  1996-02-27  |  689b  |  33 lines
  1.  
  2.     .xdef    _zm_check_zmsc
  3.     .xdef    _zm_ver
  4.  
  5.     .include    zmid.mac
  6.     .include    zm3lib.mac
  7.     .include    doscall.mac
  8.     .include    iocscall.mac
  9. *-----------------------------------------------------------------------------
  10. *    int    _zm_check_zmsc( void );
  11. *    int    _zm_ver( void );
  12. *-----------------------------------------------------------------------------
  13.  
  14. _zm_check_zmsc:
  15. _zm_ver:
  16.     suba.l    a1,a1
  17.     IOCS    _B_SUPER    *go into supervisor mode
  18.     move.l    d0,-(sp)
  19.     movea.l    $8c.w,a1
  20.     subq.l    #8,a1
  21.     moveq.l    #-1,d1
  22.     cmpi.l    #'ZmuS',(a1)+    *version ID
  23.     bne    @f
  24.     cmpi.w    #'iC',(a1)+
  25.     bne    @f
  26.     moveq.l    #0,d1
  27.     move.w    (a1)+,d1
  28. @@:
  29.     move.l    (sp)+,a1
  30.     IOCS    _B_SUPER    *back to user mode
  31.     move.l    d1,d0
  32.     rts
  33.